home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / s / scanquix3.dms / in.adf / Install_Script < prev    next >
Encoding:
Text File  |  1997-01-29  |  15.2 KB  |  582 lines
  1. ; This is the ScanQuix3 install script
  2. ; $VER: 1.4 (18.07.96) © by Andreas Günther
  3.  
  4. ; 1.0 -> 1.1 : - Installation von AdPro- und PageStream Lademodulen hinzugefügt
  5. ; 1.1 -> 1.2 : - Installation von DPaintV Lademodul hizugefügt
  6. ;              - Bei AdPro und Pagestream copylib durch copyfiles ersetzt
  7. ; 1.2 -> 1.3 : - Bei Photogenics wird der GIO-Catalog nur noch kopiert, wenn
  8. ;                "Photogenics:" existiert.
  9. ; 1.3 -> 1.4 : - Installation von ArtEffect Plugin hinzugefügt
  10. ;              - Photogenics: GIO-Catalog wird bei deinstallation jetzt auch gelöscht.
  11. ; Adapted for PPaint loader by sKINtRADE! in 01/96
  12.  
  13. (transcript "ScanQuix installation:")
  14.  
  15. (if (patmatch @language "deutsch")
  16.   (set deutsch 1)
  17.   (set deutsch 0)
  18. )
  19.  
  20. (if deutsch
  21.   (set t_welche_op "\n\n\n\nBitte wählen Sie, welche Aktion durchgeführt werden soll:\n\n\nAngepaßt an PPaint IO Lademodul\ndurch sKINtRADE! am 29. Januar 1997!")
  22.   (set t_welche_op "\n\n\n\nWhat Operation do you want to perform ?\n\n\nAdapted to PPaint loader\nby sKINtRADE! on 29th of January 1997!")
  23. )
  24. (if deutsch
  25.   (set t_welcheop_help "\"ScanQuix installieren\" installiert die komplette ScanQuix Software.\n\"Installation entfernen\" löscht die gesamte ScanQuix-Installation von Ihrer Festplatte.")
  26.   (set t_welcheop_help "By choosing \"Install ScanQuix\", you can install ScanQuix and the scanner driver(s) on your computer.\nWith the choice \"Remove Installation\", an existing installation of ScanQuix and the scanner drivers can be entirely removed from your System.")
  27. )
  28. (if deutsch
  29.   (set t_welheop_1 "ScanQuix installieren")
  30.   (set t_welheop_1 "Install ScanQuix")
  31. )
  32. (if deutsch
  33.   (set t_welheop_0 "Installation entfernen")
  34.   (set t_welheop_0 "Remove ScanQuix")
  35. )
  36. (if deutsch
  37.   (set t_woanlegen "Wo soll die ScanQuix Schublade eingerichtet werden ?")
  38.   (set t_woanlegen "Where do you want the \"ScanQuix\" drawer to be created ?")
  39. )
  40. (if deutsch
  41.   (set t_copying_sq "\n\n\nScanQuix wird kopiert...")
  42.   (set t_copying_sq "\n\n\nCopying ScanQuix...")
  43. )
  44. (if deutsch
  45.   (set t_copying_gtlib "\n\n\nDie gtlayout.library wird kopiert...")
  46.   (set t_copying_gtlib "\n\n\nCopying gtlayout.library...")
  47. )
  48. (if deutsch
  49.   (set t_copying_device "\n\n\nDas scanner.device wird kopiert...")
  50.   (set t_copying_device "\n\n\nCopying scanner.device...")
  51. )
  52. (if deutsch
  53.   (set t_copying_driver "\n\n\nDer Scanner-Treiber wird kopiert...")
  54.   (set t_copying_driver "\n\n\nCopying scanner driver...")
  55. )
  56. (if deutsch
  57.   (set t_copying_cat_d "\n\n\nDie deutschen Programmtexte werden kopiert...")
  58.   (set t_copying_cat_d "\n\n\nCopying german catalog files...")
  59. )
  60. (if deutsch
  61.   (set t_copying_cat_f "\n\n\nDie französischen Programmtexte werden kopiert...")
  62.   (set t_copying_cat_f "\n\n\nCopying french catalog files...")
  63. )
  64. (if deutsch
  65.   (set t_askloader "Welche Lademodule sollen installiert werden ?")
  66.   (set t_askloader "Which loaders do you want to be installed ?")
  67. )
  68. (if deutsch
  69.   (set t_copying_GIO "\n\n\nDas Lademodul für Photogenics wird kopiert...")
  70.   (set t_copying_GIO "\n\n\nCopying Photogenics loader...")
  71. )
  72. (if deutsch
  73.   (set t_copying_IFX "\n\n\nDas Scannermodule für ImageFX  wird kopiert...")
  74.   (set t_copying_IFX "\n\n\nCopying ImageFX scanner module...")
  75. )
  76. (if deutsch
  77.   (set t_copying_ADPRO "\n\n\nDas Scannermodule für ADPro  wird kopiert...")
  78.   (set t_copying_ADPRO "\n\n\nCopying ADPro scanner module...")
  79. )
  80. (if deutsch
  81.   (set t_copying_PGS "\n\n\nDas Scannermodule für PageStream 3 wird kopiert...")
  82.   (set t_copying_PGS "\n\n\nCopying PageStream 3 scanner module...")
  83. )
  84. (if deutsch
  85.   (set t_copying_DPV "\n\n\nDas Scannermodule für Deluxe Paint V wird kopiert...")
  86.   (set t_copying_DPV "\n\n\nCopying Deluxe Paint V scanner module...")
  87. )
  88. (if deutsch
  89.   (set t_copying_PSS "\n\n\nDas Plugin für ArtEffect wird kopiert...")
  90.   (set t_copying_PSS "\n\n\nCopying plugin for ArtEffect...")
  91. )
  92. (if deutsch
  93.   (set t_copying_PP "\n\n\nDas PPaint Lademodul wird kopiert...")
  94.   (set t_copying_PP "\n\n\nCopying PPaint loader...")
  95. )
  96. (if deutsch
  97.   (set t_wirklich_loeschen "\n\n\n\nMöchten Sie wirklich die gesamte ScanQuix Installation\nentfernen ?\n\nAlle Einstellungen werden dabei gelöscht !\nALLE BILDER im ScanQuix-Verzeichnis WERDEN UNWIEDERBRINGLICH GELÖSCHT !")
  98.   (set t_wirklich_loeschen "\n\n\n\nDo you really want to remove your ScanQuix installation ?\n\nAll settings will be lost !\nALL IMAGES in the ScanQuix drawer ARE DELETED !")
  99. )
  100. (if deutsch
  101.   (set t_loeschen_help "Sie könenn die Scannertreiber jederzeit neu installieren, allerdings sind die Einstellungen verloren !")
  102.   (set t_loeschen_help "You can reinstall your scanner drivers at any time, but you will loose the current settings !")
  103. )
  104. (if deutsch
  105.   (set t_loesche_sq "Die ScanQuix Installation wird gelöscht.")
  106.   (set t_loesche_sq "Deleting the ScanQuix installation.")
  107. )
  108. (if deutsch
  109.   (set t_makedir "Verzeichnis wird erstellt...")
  110.   (set t_makedir "Creating directory...")
  111. )
  112. (if deutsch
  113.   (set t_save_dest "Pfad des ScanQuix-Verzeichnisses wird gespeichert...")
  114.   (set t_save_dest "Saving path of ScanQuix drawer...")
  115. )
  116. (if deutsch
  117.   (set t_savedesthelp "Der Pfad wird im ENV: Verzeichnis gespeichert, um die ScanQuix-Installation ggf. vollständig entfernen zu können.")
  118.   (set t_savedesthelp "The Path is saved to the ENV: directory. This is important to uninstall the ScanQuix software.")
  119. )
  120. (if deutsch
  121.   (set t_zeige_piktos "Piktogramme werden gezeigt...")
  122.   (set t_zeige_piktos "Icons are displayed...")
  123. )
  124. (if deutsch
  125.   (set t_anzeigen_help "Das Programm MultiView wird gestartet, um die zur Verfügung stehenden Piktogramme anzuzeigen.")
  126.   (set t_anzeigen_help "The program MultiView is started to show you the icons which can be installed.")
  127. )
  128. (if deutsch
  129.   (set t_askicon "Welche Piktogramme möchten Sie für ScanQuix installieren ?")
  130.   (set t_askicon "Which icons do you want to install for ScanQuix ?")
  131. )
  132. (if deutsch
  133.   (set t_copying_icons "Piktogramme werden installiert.")
  134.   (set t_copying_icons "Installing Icons.")
  135. )
  136. ;(if deutsch
  137. ;  (set t_ "")
  138. ;  (set t_ "")
  139. ;)
  140.  
  141.  
  142. (set install_sq
  143.   (askbool
  144.     (prompt t_welche_op)
  145.     (help t_welcheop_help)
  146.     (choices t_welheop_1 t_welheop_0)
  147.     (default 1)
  148.   )
  149. )
  150.  
  151. (if install_sq
  152.  (
  153.   (set sq_path
  154.     (askdir
  155.       (prompt t_woanlegen)
  156.       (help @askdir-help)
  157.       (default @default-dest)
  158.     )
  159.   )
  160.  
  161.   (set @default-dest sq_path)
  162.  
  163.   (copyfiles
  164.     (prompt t_copying_sq)
  165.     (help @copyfiles-help)
  166.     (source "ScanQuix3:ScanQuix3")
  167.     (dest (tackon sq_path "ScanQuix3"))
  168.     (all)
  169.     (infos)
  170.     (confirm)
  171.   )
  172.  
  173.   (if deutsch
  174.     (makedir (tackon sq_path "ScanQuix3/Bilder") 
  175.       (prompt t_makedir)
  176.       (help @makedir-help)
  177.       (infos)
  178.     )
  179.     (makedir (tackon sq_path "ScanQuix3/Pictures")
  180.       (prompt t_makedir)
  181.       (help @makedir-help)
  182.       (infos)
  183.     )
  184.   )
  185.  
  186. ;  (if 0 (<> @user-level 0)
  187. ;    (
  188. ;      (run "run >NIL: MultiView ScanQuix3:Icons/Icons.iff"
  189. ;        (prompt t_zeige_piktos)
  190. ;        (help t_anzeigen_help)
  191. ;        (confirm)
  192. ;      )
  193. ;  
  194. ;      (set icon_set (askchoice
  195. ;        (prompt t_askicon)
  196. ;        (help @askchoice-help)
  197. ;        (choices "(a) Scanner" "(b) Auge")
  198. ;        (default 0)
  199. ;    )
  200. ;
  201. ;    (if (in icon_set 0)
  202. ;      (copyfiles 
  203. ;        (prompt t_copying_icons)
  204. ;        (help @copyfiles-help)
  205. ;        (source "ScanQuix3:Icons/a")
  206. ;        (dest (tackon sq_path "ScanQuix3"))
  207. ;        (all)
  208. ;        (confirm)
  209. ;      )
  210. ;    )
  211. ;
  212. ;    (if (in icon_set 1)
  213. ;      (copyfiles 
  214. ;        (prompt t_copying_icons)
  215. ;        (help @copyfiles-help)
  216. ;        (source "ScanQuix3:Icons/b")
  217. ;        (dest (tackon sq_path "ScanQuix3"))
  218. ;        (all)
  219. ;        (confirm)
  220. ;      )
  221. ;    )
  222. ;  )
  223.  
  224.   (copylib
  225.     (prompt t_copying_gtlib)
  226.     (help @copylib-help)
  227.     (source "ScanQuix3:Libs/gtlayout.library")
  228.     (dest "LIBS:")
  229.     (confirm)
  230.   )
  231.  
  232.   (copylib
  233.     (prompt t_copying_device)
  234.     (help @copylib-help)
  235.     (source "ScanQuix3:Devs/scanner.device")
  236.     (dest "DEVS:")
  237.     (confirm)
  238.   )
  239.  
  240.   (copyfiles
  241.     (prompt t_copying_driver)
  242.     (help @copyfiles-help)
  243.     (source "ScanQuix3:Devs/Scanners")
  244.     (dest "DEVS:Scanners")
  245.     (all)
  246.     (infos)
  247.     (confirm)
  248.   )
  249.  
  250.   (if (exists "LOCALE:" (noreq))
  251.     (
  252.      ; locale is installed, so copy the catalog stuff
  253.       (if (exists "LOCALE:Catalogs/deutsch" (noreq))
  254.         (copyfiles
  255.             (prompt t_copying_cat_d)
  256.           (help @copyfiles-help)
  257.           (source "ScanQuix3:Catalogs/deutsch/")
  258.           (dest "LOCALE:Catalogs/deutsch/ScanQuix")
  259.           (confirm)
  260.           (all)
  261.         )
  262.       )
  263.  
  264. ;      (if (exists "LOCALE:Catalogs/français" (noreq))
  265. ;        (copyfiles
  266. ;            (prompt t_copying_cat_f)
  267. ;          (help @copyfiles-help)
  268. ;          (source "ScanQuix3:Catalogs/français/ScanQuix")
  269. ;          (dest "LOCALE:Catalogs/français/ScanQuix")
  270. ;          (confirm)
  271. ;          (all)
  272. ;        )
  273. ;      )
  274.     )
  275.   )
  276.  
  277.   (makedir "ENVARC:ScanQuix"
  278.     (prompt t_makedir)
  279.     (help @makedir-help)
  280.     (infos)
  281.   )
  282.  
  283.   (makedir "ENVARC:ScanQuix/Scanners"
  284.     (prompt t_makedir)
  285.     (help @makedir-help)
  286.     (infos)
  287.   )
  288.  
  289.   (makedir "ENV:ScanQuix"
  290.     (prompt t_makedir)
  291.     (help @makedir-help)
  292.     (infos)
  293.   )
  294.  
  295.   (makedir "ENV:ScanQuix/Scanners"
  296.     (prompt t_makedir)
  297.     (help @makedir-help)
  298.     (infos)
  299.   )
  300.  
  301.   (textfile
  302.     (prompt t_save_dest)
  303.     (help t_savedesthelp)
  304.     (dest "ENVARC:ScanQuix/Path")
  305.     (append sq_path)
  306.   )
  307.  
  308.   (textfile
  309.     (prompt t_save_dest)
  310.     (help t_savedesthelp)
  311.     (dest "ENV:ScanQuix/Path")
  312.     (append sq_path)
  313.   )
  314.  
  315.  
  316.   (set loader (askoptions
  317.     (prompt t_askloader)
  318.     (help @askoptions-help)
  319.     (choices "Photogenics" "ImageFX" "Art Department Prof." "PageStream 3" "Deluxe Paint V" "ArtEffect" "PPaint")
  320.     (default -1)
  321.   ))
  322.  
  323.   (if (in loader 0)
  324.     (if (exists "Photogenics:" (noreq))
  325.       (
  326.         (copylib
  327.           (prompt t_copying_GIO)
  328.           (help @copylib-help)
  329.           (source "ScanQuix3:Support/Photogenics/ScanQuix.gio")
  330.           (dest "Photogenics:Data/GIO")
  331.           (confirm)
  332.         )
  333.  
  334.         (if (exists "LOCALE:Catalogs/deutsch" (noreq))
  335.           (copyfiles
  336.               (prompt t_copying_cat_d)
  337.             (help @copyfiles-help)
  338.             (source "ScanQuix3:Support/Photogenics/deutsch/ScanQuix_GIO.catalog")
  339.             (dest "LOCALE:Catalogs/deutsch")
  340.             (confirm)
  341.           )
  342.         )
  343.       )
  344.     )
  345.   )
  346.  
  347.   (if (in loader 1)
  348.     (if (exists "ImageFX:" (noreq))
  349.       (copylib
  350.         (prompt t_copying_IFX)
  351.         (help @copylib-help)
  352.         (source "ScanQuix3:Support/ImageFX/ScanQuix")
  353.         (dest "ImageFX:Modules/Scanner")
  354.         (confirm)
  355.       )
  356.     )
  357.   )
  358.  
  359.   (if (in loader 2)
  360.     (if (exists "ADPRO:" (noreq))
  361.       (copyfiles
  362.         (prompt t_copying_ADPRO)
  363.         (help @copyfiles-help)
  364.         (source "ScanQuix3:Support/ADPro/SCANQUIX")
  365.         (dest "ADPRO:Loaders2")
  366.         (confirm)
  367.       )
  368.     )
  369.   )
  370.  
  371.   (if (in loader 3)
  372.     (if (exists "PageStream3:" (noreq))
  373.       (copyfiles
  374.         (prompt t_copying_PGS)
  375.         (help @copyfiles-help)
  376.         (source "ScanQuix3:Support/PageStream/ScanImage.rexx")
  377.         (dest "PageStream3:Macros")
  378.         (confirm)
  379.       )
  380.     )
  381.   )
  382.  
  383.   (if (in loader 4)
  384.     (if (exists "DPaintV:" (noreq))
  385.       (copyfiles
  386.         (prompt t_copying_DPV)
  387.         (help @copyfiles-help)
  388.         (source "ScanQuix3:Support/DPaintV")
  389.         (dest "DPaintV:Macros")
  390.         (confirm)
  391.         (all)
  392.       )
  393.     )
  394.   )
  395.  
  396.   (if (in loader 5)
  397.     (if (exists "ArtEffect:" (noreq))
  398.       (
  399.         (copyfiles
  400.           (prompt t_copying_PSS)
  401.           (help @copyfiles-help)
  402.           (source "ScanQuix3:Support/ArtEffect/ScanQuix.pss")
  403.           (dest "ArtEffect:plugins")
  404.           (confirm)
  405.         )
  406.  
  407.         (if (exists "LOCALE:Catalogs/deutsch" (noreq))
  408.           (copyfiles
  409.               (prompt t_copying_cat_d)
  410.             (help @copyfiles-help)
  411.             (source "ScanQuix3:Support/ArtEffect/deutsch/ScanQuix_PSS.catalog")
  412.             (dest "LOCALE:Catalogs/deutsch")
  413.             (confirm)
  414.           )
  415.         )
  416.       )
  417.     )
  418.   )
  419.  
  420.   (if (in loader 6)
  421.     (if (exists "PPaint:Libs" (noreq))
  422.       (copyfiles
  423.         (prompt t_copying_PP)
  424.         (help @copyfiles-help)
  425.         (source "ScanQuix3:Support/PPaint")
  426.         (dest "PPaint:Libs")
  427.         (confirm)
  428.         (all)
  429.       )
  430.     )
  431.   )
  432.  
  433. ;  (set old_user (user 1))   ; always ask
  434. ;  (user old_user)
  435.  
  436.  )
  437.  (  ; else uninstall
  438.  
  439.   (set @default-dest "")
  440.  
  441.   (if (askbool
  442.         (prompt t_wirklich_loeschen)
  443.         (help t_loeschen_help)
  444.         (default 0)
  445.       )
  446.  
  447.     (
  448.      ; uninstall procedure
  449.  
  450.       (if (exists "ENV:ScanQuix/Path")
  451.         (
  452.           (run (cat "delete \"" (tackon (getenv "ScanQuix/Path") "ScanQuix3\"") "all")
  453.             (prompt t_loesche_sq)
  454.             (help t_loeschen_help)
  455.             (confirm)
  456.           )
  457.  
  458.           (run (cat "delete \"" (tackon (getenv "ScanQuix/Path") "ScanQuix3.info\""))
  459.             (prompt t_loesche_sq)
  460.             (help t_loeschen_help)
  461.             (confirm)
  462.           )
  463.         )
  464.       )
  465.  
  466.       (run "delete DEVS:Scanners all"
  467.         (prompt t_loesche_sq)
  468.         (help t_loeschen_help)
  469.         (confirm)
  470.       )
  471.  
  472.       (delete "DEVS:Scanners.info"
  473.         (prompt t_loesche_sq)
  474.         (help t_loeschen_help)
  475.         (confirm)
  476.       )
  477.  
  478.       (delete "DEVS:scanner.device"
  479.         (prompt t_loesche_sq)
  480.         (help t_loeschen_help)
  481.         (confirm)
  482.       )
  483.  
  484.       (if (exists "Photogenics:" (noreq))
  485.         (
  486.           (delete "Photogenics:Data/GIO/ScanQuix.gio"
  487.             (prompt t_loesche_sq)
  488.             (help t_loeschen_help)
  489.             (confirm)
  490.           )
  491.           (delete "LOCALE:Catalogs/deutsch/ScanQuix_GIO.catalog"
  492.             (prompt t_loesche_sq)
  493.             (help t_loeschen_help)
  494.             (confirm)
  495.           )
  496.         )
  497.       )
  498.  
  499.       (if (exists "ImageFX:" (noreq))
  500.         (delete "ImageFX:Modules/Scanner/ScanQuix"
  501.           (prompt t_loesche_sq)
  502.           (help t_loeschen_help)
  503.           (confirm)
  504.         )
  505.       )
  506.  
  507.       (if (exists "ADPRO:" (noreq))
  508.         (delete "ADPRO:Loaders2/SCANQUIX"
  509.           (prompt t_loesche_sq)
  510.           (help t_loeschen_help)
  511.           (confirm)
  512.         )
  513.       )
  514.  
  515.       (if (exists "PageStream3:" (noreq))
  516.         (delete "PageStream3:Macros/ScanImage.rexx"
  517.           (prompt t_loesche_sq)
  518.           (help t_loeschen_help)
  519.           (confirm)
  520.         )
  521.       )
  522.  
  523.       (if (exists "DPaintV:" (noreq))
  524.         (delete "DPaintV:Macros/Scan(Image|Brush).dprx"
  525.           (prompt t_loesche_sq)
  526.           (help t_loeschen_help)
  527.           (confirm)
  528.         )
  529.       )
  530.  
  531.       (if (exists "PPaint:Libs" (noreq))
  532.         (delete "PPaint:Libs/personal_scanquix_io.library"
  533.           (prompt t_loesche_sq)
  534.           (help t_loeschen_help)
  535.           (confirm)
  536.         )
  537.       )
  538.  
  539.       (if (exists "ArtEffect:" (noreq))
  540.         (
  541.           (delete "ArtEffect:plugins/ScanQuix.pss"
  542.             (prompt t_loesche_sq)
  543.             (help t_loeschen_help)
  544.             (confirm)
  545.           )
  546.           (delete "LOCALE:Catalogs/deutsch/ScanQuix_PSS.catalog"
  547.             (prompt t_loesche_sq)
  548.             (help t_loeschen_help)
  549.             (confirm)
  550.           )
  551.         )
  552.       )
  553.  
  554.       (delete "DEVS:scanner.device"
  555.         (prompt t_loesche_sq)
  556.         (help t_loeschen_help)
  557.         (confirm)
  558.       )
  559.  
  560.       (run "delete LOCALE:Catalogs/deutsch/ScanQuix all"
  561.         (prompt t_loesche_sq)
  562.         (help t_loeschen_help)
  563.         (confirm)
  564.       )
  565.  
  566.       (run "delete ENVARC:ScanQuix all"
  567.         (prompt t_loesche_sq)
  568.         (help t_loeschen_help)
  569.         (confirm)
  570.       )
  571.  
  572.       (run "delete ENV:ScanQuix all"
  573.         (prompt t_loesche_sq)
  574.         (help t_loeschen_help)
  575.         (confirm)
  576.       )
  577.  
  578.     )
  579.   )
  580.  )
  581. )
  582.